home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Animal World / Multimedia Animal World.iso / pc / data / chapters / shared.dir / 00460.ls < prev    next >
Encoding:
Text File  |  1980-01-25  |  383 b   |  18 lines
  1. on startMovie
  2.   set maxvol to 255
  3.   set vol to maxvol
  4.   repeat while vol > 0
  5.     set the volume of sound 1 to vol
  6.     set delaytime to the ticks + 2
  7.     repeat while delaytime > the ticks
  8.     end repeat
  9.     if vol > 50 then
  10.       set vol to vol - (maxvol / 50)
  11.       next repeat
  12.     end if
  13.     set vol to vol - 3
  14.   end repeat
  15.   sound stop 1
  16.   set the volume of sound 1 to maxvol
  17. end
  18.